Top 10k strings from Star Seeker - Solar System (1985)(Mirrorsoft)[a2].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 tt,ZE;F$;F$;
   2 z$=z$+y$(TW
   1 |Sb'*td-3.762863
   1 ze;'"Press ""E"" for an explanation"
   1 ze,n4;A$+"  "+T$
   1 z$=z$+y$(tw
   1 u=-sd*slat/(clat*cd):
   1 tw,n4;"Lon: "+K$+"  Lat: ";l$
   1 tt,n5;"THAT'S THE SUN"'J$:
   1 tt,n5;"THAT'S AN OLD POSITION"'J$:
   1 tt,n5;"NOTHING THERE - TRY AGAIN":
   1 tt,ZE;F$;F$:
   1 tt,ZE;"To continue, press one of"'" S,I,O,M P or E(xplanation)":
   1 tt,ZE;"Press ""E"" for explanation":
   1 t333)/Q9):
   1 t$="."+t$(TW
   1 sl=-rs/n(FT,N3):
   1 set=set-T4*
   1 sd=sine*sl:
   1 scl=f(NUM):
   1 s333+2.17147
   1 rise=rise-T4*
   1 rise=-lon/FT+12
   1 rd=n(FT,q):
   1 rd=n(FT,Q):
   1 pos;z$''"  Is this what you want? (Y/N)":
   1 pos;nn;" and ";nx:
   1 o$="Your second choice? ":
   1 o$="Your first choice? ":
   1 o$="Your choice?":
   1 o$="Year? (1800,2200):  ":
   1 o$="Timestep required? ":
   1 o$="Time-GMT? (0000-2359):":
   1 o$="Required scale?: ":
   1 o$="Please make your choice":
   1 o$="Month?  (1,12):  ":
   1 o$="Longitude? (-180,180)  ":
   1 o$="Latitude? (-90,90)  ":
   1 o$="Day of month? (1-"+
   1 num=N4*(alp-FT*lhr):
   1 norise=ON:
   1 nn=-TW*NT:
   1 nm=nm-.8611
   1 nm=151.950429
   1 nlist=9140
   1 n5;"S to change the scale"''
   1 n5;"P sends the display to A";
   1 n5;"O for motions of all bodies"
   1 n5;"M to return to main menu"
   1 n5;"I for information on any";
   1 n4,ZE;"Press:"'';
   1 n3;"generally the same as local"'"   time (even at Greenwich)."
   1 n3;"1  To follow a single body"''
   1 n3;"0  For all 10 bodies"
   1 n$="HALLEY"
   1 mx=D(mon):
   1 mx+"):  ":
   1 mm=mm+ev-ae-a3:
   1 mm=lm-.111404
   1 mas=.98564733
   1 lst=lst-24
   1 lst1=(lc1-ON)*(T4*days+gmt)+gmt+b7
   1 lm=lm+ev+ec-ae+a4:
   1 lm=lm+.6583
   1 lm=13.1763966
   1 line=line+ON
   1 line,ON;n$;:
   1 lhr+"hr ":
   1 l$=l$+d$(N3-TW*(lat>ZE))
   1 k$=k$+d$(N4-TW*(lon>ZE))
   1 gmt=hr+mn/SX
   1 days=days+day:
   1 days=days+d(i):
   1 day+" "+m$(
   1 cl=-rc/n(FT,N3)
   1 c$="STEP 0":
   1 b5=TC0+TC1*b4+TC2*b4*b4:
   1 b1=yr-1900
   1 ZE;"Age of Moon:";
   1 ZE,N4;DAY;" ";M$(
   1 ZE,N4;A$;" ";T$
   1 ZE,N4;A$;"  ";T$:
   1 ZE+U$+" DAYS":
   1 ZE'''"SOLAR SYSTEM is a program which provides information on the Sun,Moon, planets and Halley's Comet"
   1 Z=CB*SM*SINE+COSE*SB
   1 YR=J3-4715
   1 Y=CB*SM*COSE-SINE*SB:
   1 Y1=YM+SIZ*((M=11
   1 XMD-ON,YMD:
   1 XMD,YMD-ON:
   1 XMD,YMD+ON:
   1 XMD+ON,YMD:
   1 X1=XM+SIZ*((M=9
   1 X*LSTS>Y*LSTC
   1 V$="SCALE 2":
   1 V$="SCALE "+
   1 U=(LM-NM)/Q7:
   1 U$=" "+U$+"  ":
   1 Timestep required? U
   1 TW,TW;"Which day of the month?"'''"  e.g. 11"
   1 TW,TW;"The number you chose was"''
   1 TW,TW;"That is not a valid time"'"  (Too many minutes)":
   1 TW,TW;"That does not lie in the"'"  proper range"
   1 TW,TW;"Now the month; please give me"'"  a whole  number between 1 and"'"  12."'''"  For example, 10 for October."
   1 TW,TW;"Give  the date on which the"'"  observation will be (or was)    made."
   1 TW,N3;"What is your longitude (in"'"   degrees?"''
   1 TW,N3;"What is your latitude (in"'"   degrees)?"''
   1 TT,ze;"Scale factor? :";
   1 TT,ze;"How many copies? (1-9)":
   1 TT,ZE;F$;F$;
   1 TT,ZE;F$'F$:
   1 TT,ZE;'w$:
   1 TT,ZE;'J$:
   1 TT,ZE;'"Press ""S"" to stop the motions":
   1 TT,ZE;"Your choices now are F,I,C and P"'w$:
   1 TT,ZE;"Do you wish to send this to the printer? (Y/N)"
   1 TN,on;"Latitude:",l$'" Longitude:",k$''" Date",a$''" Time",t$:
   1 TN,TW;"3  For information on the moon"
   1 TD=TD-GMT/T4:
   1 TD=TD+DDAY:
   1 TD=TD+DAYS+gmt/24
   1 TD=(YR-1980
   1 SL=-RS/N(FT,N3):
   1 SET=FAC*ST1/(FAC+ST1-ST2)
   1 SET=(SET-NUM)/LC1
   1 SB=.089683442
   1 RISE=RT1*FAC/(FAC+RT1-RT2):
   1 RISE=(RISE-NUM)/LC1:
   1 RISE))+.001
   1 RD=N(FT,Q):
   1 QQ=X*LSTC+Y*LSTS:
   1 QQ,TOP-QQ:
   1 Press any key to continue
   1 Please press the appropriate keyJ
   1 PHASE=HF*(ON-
   1 OQ-td*.0529539
   1 ON;"SOLAR SYSTEM";
   1 ON;"Objects in inverse video may be    visible to the naked eye";
   1 ON;"MENU";
   1 ON;"IMPORTANT";
   1 ON,TW;"ORBITS";
   1 ON,N3;"Please choose from:"
   1 ON,N3;"At what time do you want to
   1 NUM=.06571
   1 NUM=.0657098
   1 NST=NST+ON:
   1 NORISE=ZE:
   1 NORISE=ON:
   1 N8,ZE;"Today, the Sun: ";
   1 N8,ZE;"Moon rises: "'" ";z$''"Moon sets:"'" ";y$
   1 N8,TW;"2  For times of sunrise/sunset"
   1 N6,ZE;" Object";
   1 N6)+" GMT":
   1 N6)+" GMT"
   1 N4,TW;"1  For full information on any
   1 N4,N4;day;
   1 N3;"This time  must be Greenwich"'"   Mean Time (GMT), which is not"
   1 N3;"2  To follow a pair of bodies"
   1 N3,tn;"SKY POSITIONS"
   1 N3,on;"The cursor is moved by pressing the 5, 6, 7 and 8 keys."
   1 N3,ZE;"The moon does not set today"
   1 N3,ZE;"The moon does not rise today"
   1 N3,ON;"Please indicate how many orbits you wish to follow"''"Press"''
   1 N3);" ";YR;" ";T$:
   1 N$="THE EARTH":
   1 N$;N$''"Distance from the Sun";
   1 MON=J5-ON-12
   1 MG=2.17147
   1 MDY=29.5306
   1 LSUN=nt+180
   1 LST=LST1+LON/15
   1 LST1=-LON/15
   1 LMOON=LMOON-tw*
   1 LM=LM*(LM<SX)
   1 LD=LD+(LM=SX):
   1 JD=JD+DDAY:
   1 JC=JD+J1+1525
   1 H2=(H2-T4*
   1 H2=(ALP-LON)/FT+U:
   1 H1=T4+(ALP-LON)/FT-U:
   1 H1=H1-NUM:
   1 H1=(H1-T4*
   1 H$=" STEPSIZE"+
   1 GMT=HF*T4:
   1 FT;"THE EARTH":
   1 FT,TW;"5  To display the Solar System"
   1 FT,N4;"Should I verify the numbers"'"
   1 DAY=JC-J4-
   1 COMET HALLEYO
   1 CL=-RC/N(FT,N3)
   1 C$="STEP "+
   1 ASUN=u*sd*slat+u*cd*clat*(cose*lstS*sl+lstC*cl):
   1 ALPSUN=ALPSUN-TW*
   1 ALPSUN=ALPSUN+
   1 ALP=ALP-CI
   1 ALP=-ALP+180
   1 AGE=AGE+MDY
   1 AGE=(LM-LS)*MDY/CI:
   1 ?*td+64.975464
   1 =q+2.17147
   1 ;n$'''"Distance from the Sun   ";cc*
   1 ;"suitable printer"
   1 ;"sets at ";y$'
   1 ;"rises at ";z$;
   1 ;"displayed body"
   1 ;"To change";
   1 ;"THE OPTIONS"''':
   1 ;"Computing orbits..."
   1 ;"Azimuth";
   1 ;"Altitude";
   1 25 Nov 1984T
   1 21.30 GMTP
   1 -(MON>TW):
   1 ,ze;"Are these values OK? (Y/N)":
   1 ,ze;"   When you have finished making   changes, press the ENTER key"
   1 ,pos;m$''"   Is that the month you want?";
   1 ,ZE;"I SAID THAT ZERO WAS NOT ALLOWED":
   1 ,TW;"The Sun does not set today":
   1 ,TW;"The Sun does not rise today":
   1 ,TW;"6  To change any or all of the
   1 ,TW;"4  For a table of positions of
   1 ,N3;"Computing Moon orbit..."
   1 ,(AGE<HF*mdy):
   1 *td-349.383063
   1 *b1+b2-HF)/(HH*Q9):
   1 *CU*SU/(CU*CU+.99597032
   1 *(lm-ls)/nt)
   1 *(h+alpSUN)/
   1 *(alpSUN-h)/
   1 *(SLAT*Z<ZE)
   1 *(SEt-H1)):
   1 *(I$="E")+ORB*(I$="O")+RESTORE*(I$="M")
   1 *(I$="C")+RESTORE*(I$="F")
   1 )/36524.25
   1 (tw*(lm-ls)/Q7-mm)
   1 (sx*(RISE-H1)):
   1 (rise/T4):
   1 (on-SB*SB)
   1 (horiz+ON):
   1 (hh+lsec):
   1 (hf+tn*mg):
   1 (hf+hh*re);
   1 (hf+hh*rd);
   1 (hf+hh*n(FT,N3));
   1 (f2+on),f1-256
   1 (cl*cl+cose*cose*sl*sl)
   1 (XM,YM)=ZE
   1 (X*X+Y*Y):
   1 (SX*(num-lm))
   1 (SETT+HH):
   1 (RIST+HH):
   1 (RE*RD/N(9
   1 (RE*RD*RD*RD):
   1 (RE*RD*RD)):
   1 (ON-sd*sd)
   1 (LMOON/(tw*
   1 (LAT-DECD)
   1 (HH+hr)+t$:
   1 (HF+tn*mg);" mag"
   1 (HF+tn*age));" days";
   1 (HF+tn*AZ)+cc:
   1 (HF+num-hr*HH):
   1 (HF+amax);"
   1 (HF+TD+JD0):
   1 (HF+SX*(xy-ld)):
   1 (HF+SX*(SET-
   1 (HF+SX*(RISE-
   1 (HF+HH*re):
   1 (HF+HH*rd):
   1 (H2/T4))/LC1
   1 (H1/T4))/LC1:
   1 (COSE*SL/CL):
   1 (CC+num*CC):
   1 (ALPSUN/(TW*
   1 (.0040296791
   1 (-SLAT*TAND/CLAT)
   1 ((lm-ls)/Q7))
   1 ((JD-1867216.25
   1 ((JC-J4)/Q8):
   1 ((JC-122.1
   1 'N$;" does not set today":
   1 'N$;" does not rise today":
   1 '''"You will be asked to enter some"'"numbers (your longitude, etc.)"''"If you like, I will check each"'"entry with you before I accept"'"it permanently."
   1 '''"Please choose a scale factor forthe next plot: this should be a number between 1 and 10"
   1 '''" Please give me the number of    days between successive plots."
   1 '''" 1  Mercury","5  Saturn"
   1 '''"  Please select a number between ";
   1 ''"NB: At ";t$;" the sun is"'"    above the horizon."
   1 ''"Maximum altitude: ";
   1 ''"Larger numbers give larger scaleplots, giving a less confused   appearance to the centre of the display" 
   1 ''"Brightness:";
   1 ''" When you have positioned the    cursor over the desired object, press the ENTER key to obtain   the name of the object, as well as its distances from the Sun   and Earth"
   1 ''" The number of pixels jumped by  the cursor may be set to 1,4 or 10 by pressing the keys S, I or L respectively."
   1 ''"  This number should be a non-    zero integer between -9,999
   1 ''"  First, the year: anytime"'"  between 1800 and 2200."''"  e.g. 1950"
   1 ''"   Your  answer should be of the   form hhmm,";
   1 ''"   For example, the longitude"'"   of Central  London is -0.1"'"   degrees."
   1 '"The program can be used to find accurate sky positions of any ofthese bodies as seen at any timeand from any point on the Earthssurface."
   1 '"POSITION IN THE SOLAR SYSTEM":
   1 '"POSITION IN THE SKY:"
   1 '"On ";a$;" ";n$'"  
   1 '"In addition, the program can be made to display  the relative   positions of the bodies within  the Solar System at any time,   and to follow their motions as  they orbit the Sun."
   1 '" Right Ascension :";z$:
   1 '" 4  Jupiter","8  Pluto"
   1 '" 3  Mars","7  Neptune"
   1 '" 2  Venus","6  Uranus"
   1 '"   Time of Observation";
   1 '"   Geographical position";
   1 '"   For example, the  latitude"'"   of London is 51.5 degrees."
   1 '"   Date of Observation";
   1 "MERCURY","VENUS","MARS","JUPITER","SATURN","URANUS","NEPTUNE","PLUTO"
   1 "January","February","March","April","May","June","July","August","September","October","November","December"
   1 "Distance from the earth";
   1 "COMET HALLEY"
   1 "BRIGHTNESS:",dc*
   1 " where hh  denotes"'"   the hour (on a 24 hour clock)"
   1 " Distance from the sun: ";rd;
   1 " Distance from earth:   ";re;
   1 " Declination
   1 " Azimuth:",z$:
   1 " Altitude",z$
   1 " -New Moon"
   1 " -Full Moon"
   1 "   for  places lying  west of"'"   the Greenwich meridian."
   1 "   corresponding to places in"'"   the southern hemisphere."''
   1 "   and mm the number of  minutes   past the hour."
   1 "   The answer you give should"'"   lie between the limits -90"'"   and +90, negative  numbers"
   1 "   The answer you give should
   1 "   (WARNING: The Sun is up)"
   1  where negative numbers are"
   1  that you give me? (Y/N).":
   1  rises at:",z$;" GMT"'"and sets at:",y$;" GMT"
   1  of the planets, or on Comet
   1  observational parameters:
   1  make your observations?"''
   1  lie between -180  and 180
   1  date/time/location"
   1  and 10,000."
   1  Solar System bodies."
   1  Mirror Group Newspapers 1984
   1  MGN 1985":
   1  9  Comet Halley"
   1  30  DAYSC